|
500
|
How can I select a column
with G2antt1 do
begin
MarkSearchColumn := False;
SingleSel := False;
FullRowSelect := EXG2ANTTLib_TLB.exRectSel;
(IUnknown(Columns.Add('Column1')) as EXG2ANTTLib_TLB.Column).Selected := True;
Columns.Add('Column2');
with Items do
begin
CellValue[OleVariant(AddItem('One')),OleVariant(1)] := 'One';
end;
with Items do
begin
CellValue[OleVariant(AddItem('Two')),OleVariant(1)] := 'Two';
end;
Items.SelectAll();
end
|
|
499
|
How can I avoid focusing a new cell, when user presses an arrow, page, home or end key, while the editor is opened
with G2antt1 do
begin
DefaultEditorOption[EXG2ANTTLib_TLB.exLeftArrow] := OleVariant(0);
DefaultEditorOption[EXG2ANTTLib_TLB.exRightArrow] := OleVariant(0);
DefaultEditorOption[EXG2ANTTLib_TLB.exUpArrow] := OleVariant(0);
DefaultEditorOption[EXG2ANTTLib_TLB.exDownArrow] := OleVariant(0);
DefaultEditorOption[EXG2ANTTLib_TLB.exHomeKey] := OleVariant(0);
DefaultEditorOption[EXG2ANTTLib_TLB.exEndKey] := OleVariant(0);
DefaultEditorOption[EXG2ANTTLib_TLB.exPageUpKey] := OleVariant(0);
DefaultEditorOption[EXG2ANTTLib_TLB.exPageDownKey] := OleVariant(0);
(IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.EditType;
(IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.EditType;
with Items do
begin
CellValue[OleVariant(AddItem(OleVariant(0))),OleVariant(1)] := OleVariant(1);
end;
with Items do
begin
CellValue[OleVariant(AddItem(OleVariant(2))),OleVariant(1)] := OleVariant(3);
end;
end
|
|
498
|
How can I expand predefined items in a drop down list editor as I type
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column) do
begin
Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
with Editor do
begin
Option[EXG2ANTTLib_TLB.exExpandOnSearch] := OleVariant(True);
EditType := EXG2ANTTLib_TLB.DropDownListType;
DropDownAutoWidth := EXG2ANTTLib_TLB.exDropDownEditorWidth;
AddItem(1,'<b>CObject</b> class',OleVariant(1));
InsertItem(2,'<b>CCmdTarget</b> class',OleVariant(2),OleVariant(1));
InsertItem(3,'<b>CWnd</b> class',OleVariant(3),OleVariant(2));
InsertItem(6,'<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>',OleVariant(1),OleVariant(1));
AddItem(4,'Exceptions',OleVariant(1));
InsertItem(7,'<b>System</b> Exceptions',OleVariant(2),OleVariant(4));
AddItem(5,'File Services',OleVariant(2));
end;
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
497
|
How can I add an extra button to a date picker editor
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
DefaultItemHeight := 20;
with (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.DateType;
AddButton('B1',OleVariant(2),OleVariant(1),'This is a bit of text that''s shown when the cursor hovers the button B1',Null,Null);
ButtonWidth := 20;
end;
with Items do
begin
AddItem(OleVariant(0));
AddItem(OleVariant(1));
end;
end
|
|
496
|
How can I add an extra button to a spin editor
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
DefaultItemHeight := 20;
with (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.SpinType;
AddButton('B1',OleVariant(2),OleVariant(1),'This is a bit of text that''s shown when the cursor hovers the button B1',Null,Null);
ButtonWidth := 20;
end;
with Items do
begin
AddItem(OleVariant(0));
AddItem(OleVariant(1));
end;
end
|
|
495
|
How can I remove or delete the buttons in the editor
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.EditType;
AddButton('B1',OleVariant(1),OleVariant(0),'This is a bit of text that''s shown when the cursor hovers the button B1',Null,Null);
AddButton('B3',OleVariant(2),OleVariant(1),'This is a bit of text that''s shown when the cursor hovers the button B3',Null,Null);
AddButton('B4',OleVariant(1),OleVariant(1),'This is a bit of text that''s shown when the cursor hovers the button B4',Null,Null);
RemoveButton('B1');
ButtonWidth := 20;
end;
with Items do
begin
AddItem('Text 1');
AddItem('Text 2');
end;
end
|
|
494
|
How can I hide the buttons in the editor
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
DefaultItemHeight := 24;
with (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.EditType;
AddButton('B1',OleVariant(1),OleVariant(0),'This is a bit of text that''s shown when the cursor hovers the button B1',Null,Null);
AddButton('B3',OleVariant(2),OleVariant(1),'This is a bit of text that''s shown when the cursor hovers the button B3',Null,Null);
AddButton('B4',OleVariant(1),OleVariant(1),'This is a bit of text that''s shown when the cursor hovers the button B4',Null,Null);
ButtonWidth := 0;
end;
with Items do
begin
AddItem('Text 1');
AddItem('Text 2');
end;
end
|
|
493
|
How can I change the width of the buttons in the editor
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
DefaultItemHeight := 24;
with (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.EditType;
AddButton('B1',OleVariant(1),OleVariant(0),'This is a bit of text that''s shown when the cursor hovers the button B1',Null,Null);
AddButton('B3',OleVariant(2),OleVariant(1),'This is a bit of text that''s shown when the cursor hovers the button B3',Null,Null);
AddButton('B4',OleVariant(1),OleVariant(1),'This is a bit of text that''s shown when the cursor hovers the button B4',Null,Null);
ButtonWidth := 24;
end;
with Items do
begin
AddItem('Text 1');
AddItem('Text 2');
end;
end
|
|
492
|
How can I add extra buttons to an editor
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.EditType;
AddButton('B1',OleVariant(1),OleVariant(0),'This is a bit of text that''s shown when the cursor hovers the button B1',Null,Null);
AddButton('B2',OleVariant(2),OleVariant(0),'This is a bit of text that''s shown when the cursor hovers the button B2',Null,Null);
AddButton('B3',OleVariant(3),OleVariant(1),'This is a bit of text that''s shown when the cursor hovers the button B3',Null,Null);
AddButton('B4',OleVariant(1),OleVariant(1),'This is a bit of text that''s shown when the cursor hovers the button B4',Null,Null);
end;
with Items do
begin
AddItem('Text 1');
AddItem('Text 2');
end;
end
|
|
491
|
is there any function to specify the number of rows / items being visible in a drop down list editor
with G2antt1 do
begin
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.DropDownListType;
AddItem(1,'First item',Null);
AddItem(2,'Second item',Null);
AddItem(3,'Third item',Null);
DropDownRows := 1;
PopupAppearance := EXG2ANTTLib_TLB.FlatApp;
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
490
|
How can I change the border for a drop down editor
with G2antt1 do
begin
with (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.DateType;
PopupAppearance := EXG2ANTTLib_TLB.FlatApp;
end;
Items.AddItem('Today');
with Items do
begin
CellEditor[OleVariant(AddItem('Today')),OleVariant(0)].EditType := EXG2ANTTLib_TLB.DateType;
end;
end
|
|
489
|
How can I remove a predefined item in a drop down editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Color')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.ColorListType;
Option[EXG2ANTTLib_TLB.exColorListShowName] := OleVariant(True);
RemoveItem(255);
end;
Items.AddItem(OleVariant(255));
Items.AddItem(OleVariant(65280));
end
|
|
488
|
How can I remove or clear all predefined items in a drop down editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Color')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.ColorListType;
ClearItems();
AddItem(255,'Red Color',Null);
end;
Items.AddItem(OleVariant(255));
end
|
|
487
|
How can I center the predefined items in a drop down editor editor
with G2antt1 do
begin
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.DropDownListType;
AddItem(1,'First item',Null);
AddItem(2,'Second item',Null);
AddItem(3,'Third item',Null);
DropDownAlignment := EXG2ANTTLib_TLB.CenterAlignment;
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
486
|
How can I right align the items in a drop down editor editor
with G2antt1 do
begin
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.DropDownListType;
AddItem(1,'First item',Null);
AddItem(2,'Second item',Null);
AddItem(3,'Third item',Null);
DropDownAlignment := EXG2ANTTLib_TLB.RightAlignment;
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
485
|
How can I specify the width of the drop down editor
with G2antt1 do
begin
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
DropDownAutoWidth := EXG2ANTTLib_TLB.exDropDownEditorWidth;
DropDownMinWidth := 385;
EditType := EXG2ANTTLib_TLB.ColorListType;
end;
with Items do
begin
AddItem(OleVariant(255));
AddItem(OleVariant(65280));
end;
end
|
|
484
|
How can hide the drop down button for an editor
with G2antt1 do
begin
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
DropDownVisible := False;
EditType := EXG2ANTTLib_TLB.ColorListType;
end;
with Items do
begin
AddItem(OleVariant(255));
AddItem(OleVariant(65280));
end;
end
|
|
483
|
How can assign a tooltip to a drop down list editor
with G2antt1 do
begin
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.DropDownListType;
AddItem(1,'First item',Null);
AddItem(2,'Second item',Null);
AddItem(3,'Third item',Null);
ItemToolTip[OleVariant(1)] := 'This is a tooltip that shows when user hovers the <b>first</b> item';
ItemToolTip[OleVariant(2)] := 'This is a tooltip that shows when user hovers the <b>second</b> item';
ItemToolTip[OleVariant(3)] := 'This is a tooltip that shows when user hovers the <b>third</b> item';
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
482
|
How can I lock, disable make read only an editor
with G2antt1 do
begin
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
Locked := True;
EditType := EXG2ANTTLib_TLB.DropDownListType;
AddItem(1,'First item',Null);
AddItem(2,'Second item',Null);
AddItem(3,'Third item',Null);
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
481
|
How can I sort the items in a drop down list editor
with G2antt1 do
begin
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.DropDownListType;
AddItem(1,'Second item',Null);
AddItem(2,'First item',Null);
AddItem(3,'Third item',Null);
SortItems(OleVariant(True),Null);
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
480
|
How can I expand an item in the tree or a hierarchy of a drop down editor
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column) do
begin
Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
with Editor do
begin
EditType := EXG2ANTTLib_TLB.DropDownListType;
DropDownAutoWidth := EXG2ANTTLib_TLB.exDropDownEditorWidth;
AddItem(1,'<b>CObject</b> class',OleVariant(1));
InsertItem(2,'<b>CCmdTarget</b> class',OleVariant(2),OleVariant(1));
InsertItem(3,'<b>CWnd</b> class',OleVariant(3),OleVariant(2));
InsertItem(6,'<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>',OleVariant(1),OleVariant(1));
AddItem(4,'Exceptions',OleVariant(1));
InsertItem(7,'<b>System</b> Exceptions',OleVariant(2),OleVariant(4));
AddItem(5,'File Services',OleVariant(2));
ExpandItem[OleVariant(1)] := True;
end;
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
479
|
How can I display a tree or a hierarchy in a drop down editor
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column) do
begin
Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
with Editor do
begin
EditType := EXG2ANTTLib_TLB.DropDownListType;
DropDownAutoWidth := EXG2ANTTLib_TLB.exDropDownEditorWidth;
AddItem(1,'<b>CObject</b> class',OleVariant(1));
InsertItem(2,'<b>CCmdTarget</b> class',OleVariant(2),OleVariant(1));
InsertItem(3,'<b>CWnd</b> class',OleVariant(3),OleVariant(2));
InsertItem(6,'<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>',OleVariant(1),OleVariant(1));
AddItem(4,'Exceptions',OleVariant(1));
InsertItem(7,'<b>System</b> Exceptions',OleVariant(2),OleVariant(4));
AddItem(5,'File Services',OleVariant(2));
ExpandAll();
end;
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
478
|
How can I look for items that includes the typed characters in a drop down list editor
with G2antt1 do
begin
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
Option[EXG2ANTTLib_TLB.exAutoSearch] := OleVariant(1);
EditType := EXG2ANTTLib_TLB.DropDownListType;
AddItem(1,'First item',Null);
AddItem(2,'Second item',Null);
AddItem(3,'Third item',Null);
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
477
|
How can I keep the selection background color while editor is visible
with G2antt1 do
begin
SelBackColor := RGB(255,0,0);
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
Option[EXG2ANTTLib_TLB.exKeepSelBackColor] := OleVariant(True);
EditType := EXG2ANTTLib_TLB.DropDownListType;
AddItem(1,'First item',Null);
AddItem(2,'Second item',Null);
AddItem(3,'Third item',Null);
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
476
|
How can I select from a drop down list the editor, when the user starts typing in the editor, while it is closed and focused
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
Option[EXG2ANTTLib_TLB.exAutoDropDownList] := OleVariant(1);
EditType := EXG2ANTTLib_TLB.DropDownListType;
AddItem(1,'First item',OleVariant(1));
AddItem(2,'Second item',OleVariant(3));
AddItem(3,'Third item',OleVariant(2));
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
475
|
How can I automatically drop down the list editor, when the user starts typing in the editor
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
Option[EXG2ANTTLib_TLB.exAutoDropDownList] := OleVariant(-1);
EditType := EXG2ANTTLib_TLB.DropDownListType;
AddItem(1,'First item',OleVariant(1));
AddItem(2,'Second item',OleVariant(3));
AddItem(3,'Third item',OleVariant(2));
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
474
|
How can I add a Font editor
with G2antt1 do
begin
(IUnknown(Columns.Add('Font')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.FontType;
Items.AddItem('Tahoma');
end
|
|
473
|
How can I change the visual appearance for the buttons in the calculator editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Slider')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.CalculatorType;
Option[EXG2ANTTLib_TLB.exCalcPictureUp] := G2antt1.ExecuteTemplate('loadpicture(`c:\exontrol\images\colorize.gif`)');
Option[EXG2ANTTLib_TLB.exCalcPictureDown] := G2antt1.ExecuteTemplate('loadpicture(`c:\exontrol\images\auction.gif`)');
end;
Items.AddItem(OleVariant(10));
end
|
|
472
|
How can I customize the caption of buttons in the calculator editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Slider')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.CalculatorType;
Option[EXG2ANTTLib_TLB.exCalcButtons] := '0;1;2;3;4;5;6;7;8;9;<b>+</b>;<fgcolor=FF0000>=</fgcolor>';
end;
Items.AddItem(OleVariant(10));
end
|
|
471
|
How can I customize the caption of buttons in the calculator editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Slider')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.CalculatorType;
Option[EXG2ANTTLib_TLB.exCalcButtons] := '0;1;2;3;4;5;6;7;8;9';
end;
Items.AddItem(OleVariant(10));
end
|
|
470
|
How can I specify the width and height of the buttons in the calculator editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Slider')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.CalculatorType;
Option[EXG2ANTTLib_TLB.exCalcButtonWidth] := OleVariant(32);
Option[EXG2ANTTLib_TLB.exCalcButtonHeight] := OleVariant(32);
end;
Items.AddItem(OleVariant(10));
end
|
|
469
|
How can I change the "Cannot divide by zero" message that shows in the calculator editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Slider')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.CalculatorType;
Option[EXG2ANTTLib_TLB.exCalcCannotDivideByZero] := 'Divizion by zero';
end;
Items.AddItem(OleVariant(10));
end
|
|
468
|
How can I enable or disable executing operations while the calculator editor is focused and closed
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Slider')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.CalculatorType;
Option[EXG2ANTTLib_TLB.exCalcExecuteKeys] := OleVariant(False);
end;
Items.AddItem(OleVariant(10));
end
|
|
467
|
How can I add a calculator editor
with G2antt1 do
begin
(IUnknown(Columns.Add('Slider')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.CalculatorType;
Items.AddItem(OleVariant(10));
end
|
|
466
|
How can I edit a number between a range or interval
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Slider')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.SliderType;
Numeric := EXG2ANTTLib_TLB.exInteger;
Option[EXG2ANTTLib_TLB.exSpinStep] := OleVariant(0);
Option[EXG2ANTTLib_TLB.exSliderWidth] := OleVariant(0);
Option[EXG2ANTTLib_TLB.exSliderMin] := OleVariant(5);
Option[EXG2ANTTLib_TLB.exSliderMax] := OleVariant(15);
end;
Items.AddItem(OleVariant(10));
end
|
|
465
|
How can I hide or show the spin in the slider or track bar editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Slider')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.SliderType;
Option[EXG2ANTTLib_TLB.exSpinStep] := OleVariant(0);
end;
Items.AddItem(OleVariant(10));
end
|
|
464
|
How can I add a slider or track bar editor, with a fixed size
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Slider')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.SliderType;
Option[EXG2ANTTLib_TLB.exSliderWidth] := OleVariant(64);
end;
Items.AddItem(OleVariant(10));
end
|
|
463
|
How can I add a slider or track bar editor, so it covers half of the cell
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Slider')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.SliderType;
Option[EXG2ANTTLib_TLB.exSliderWidth] := OleVariant(-50);
end;
Items.AddItem(OleVariant(10));
end
|
|
462
|
How can I add a slider or track bar editor, so it covers the full cell
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Slider')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.SliderType;
Option[EXG2ANTTLib_TLB.exSliderWidth] := OleVariant(-100);
end;
Items.AddItem(OleVariant(10));
end
|
|
461
|
How can I add a slider or track bar editor within a range or interval of numbers
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Spin from 5 to 15')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.SliderType;
Numeric := EXG2ANTTLib_TLB.exInteger;
Option[EXG2ANTTLib_TLB.exSliderMin] := OleVariant(5);
Option[EXG2ANTTLib_TLB.exSliderMax] := OleVariant(15);
end;
Items.AddItem(OleVariant(10));
end
|
|
460
|
How can I add a slider or track bar editor within a range or interval of float numbers
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Spin from 5 to 15')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.SliderType;
Numeric := EXG2ANTTLib_TLB.exFloat;
Option[EXG2ANTTLib_TLB.exSliderMin] := OleVariant(0);
Option[EXG2ANTTLib_TLB.exSliderMax] := OleVariant(1);
Option[EXG2ANTTLib_TLB.exSpinStep] := '0.01';
Option[EXG2ANTTLib_TLB.exSliderStep] := '0.01';
end;
Items.AddItem('0.3');
end
|
|
459
|
How can I add a spin editor within a range or interval of float numbers
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Spin from 5 to 15')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.SliderType;
Numeric := EXG2ANTTLib_TLB.exFloat;
Option[EXG2ANTTLib_TLB.exSliderWidth] := OleVariant(0);
Option[EXG2ANTTLib_TLB.exSliderMin] := OleVariant(0);
Option[EXG2ANTTLib_TLB.exSliderMax] := OleVariant(1);
Option[EXG2ANTTLib_TLB.exSpinStep] := '0.01';
end;
Items.AddItem('0.3');
end
|
|
458
|
How can I add a spin editor within a range or interval of numbers
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Spin from 5 to 15')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.SliderType;
Numeric := EXG2ANTTLib_TLB.exInteger;
Option[EXG2ANTTLib_TLB.exSliderWidth] := OleVariant(0);
Option[EXG2ANTTLib_TLB.exSliderMin] := OleVariant(5);
Option[EXG2ANTTLib_TLB.exSliderMax] := OleVariant(15);
end;
Items.AddItem(OleVariant(10));
end
|
|
457
|
How can I add a slider or track bar editor
with G2antt1 do
begin
(IUnknown(Columns.Add('Slider')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.SliderType;
Items.AddItem(OleVariant(10));
end
|
|
456
|
I have check box column, but the check-boxes looks disabled. What can I do
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Check')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.CheckValueType;
Option[EXG2ANTTLib_TLB.exCheckValue2] := OleVariant(1);
end;
with Items do
begin
AddItem(OleVariant(False));
AddItem(OleVariant(True));
AddItem(OleVariant(False));
end;
end
|
|
455
|
How do I add check box column, so the cell value is changed as I click the cells
with G2antt1 do
begin
MarkSearchColumn := False;
with (IUnknown(Columns.Add('C')) as EXG2ANTTLib_TLB.Column) do
begin
Width := 18;
AllowSizing := False;
with Editor do
begin
EditType := EXG2ANTTLib_TLB.CheckValueType;
Option[EXG2ANTTLib_TLB.exCheckValue2] := OleVariant(1);
end;
end;
Columns.Add('Text');
with Items do
begin
CellValue[OleVariant(AddItem(OleVariant(False))),OleVariant(1)] := 'Check 1';
CellValue[OleVariant(AddItem(OleVariant(True))),OleVariant(1)] := 'Check 2';
CellValue[OleVariant(AddItem(OleVariant(False))),OleVariant(1)] := 'Check 3';
end;
end
|
|
454
|
How do I add check box column, so the cell value is changed as I click the cells
with G2antt1 do
begin
(IUnknown(Columns.Add('Check')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.CheckValueType;
with Items do
begin
AddItem(OleVariant(False));
AddItem(OleVariant(True));
AddItem(OleVariant(False));
end;
end
|
|
453
|
How do I disable adding new lines using the ENTER key in a memo or a multiple lines edit control
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.MemoDropDownType;
Option[EXG2ANTTLib_TLB.exMemoDropDownAcceptReturn] := OleVariant(False);
end;
with Items do
begin
CellSingleLine[OleVariant(AddItem('This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the' +
' line, and get it displayed on multiple lines.')),OleVariant(0)] := EXG2ANTTLib_TLB.exCaptionWordWrap;
end;
end
|
|
452
|
How do I add a vertical scroll bar for a memo or a multiple lines edit control
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.MemoDropDownType;
Option[EXG2ANTTLib_TLB.exMemoVScrollBar] := OleVariant(True);
end;
with Items do
begin
CellSingleLine[OleVariant(AddItem('This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the' +
' line, and get it displayed on multiple lines.')),OleVariant(0)] := EXG2ANTTLib_TLB.exCaptionWordWrap;
end;
end
|
|
451
|
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.MemoDropDownType;
Option[EXG2ANTTLib_TLB.exMemoHScrollBar] := OleVariant(True);
end;
with Items do
begin
CellSingleLine[OleVariant(AddItem('This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the' +
' line, and get it displayed on multiple lines.')),OleVariant(0)] := EXG2ANTTLib_TLB.exCaptionWordWrap;
end;
end
|
|
450
|
How can I specify the width or the height for a drop down memo or a multiple lines edit control
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.MemoDropDownType;
Option[EXG2ANTTLib_TLB.exMemoDropDownWidth] := OleVariant(256);
Option[EXG2ANTTLib_TLB.exMemoDropDownHeight] := OleVariant(64);
end;
with Items do
begin
CellSingleLine[OleVariant(AddItem('This is a long text that should break the line, and get it displayed on multiple lines.')),OleVariant(0)] := EXG2ANTTLib_TLB.exCaptionWordWrap;
end;
end
|
|
449
|
How do I add a drop down memo or a multiple lines edit control
with G2antt1 do
begin
(IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.MemoDropDownType;
with Items do
begin
CellSingleLine[OleVariant(AddItem('This is a long text that should break the line, and get it displayed on multiple lines.')),OleVariant(0)] := EXG2ANTTLib_TLB.exCaptionWordWrap;
end;
end
|
|
448
|
How do I add a color list editor with my own or custom colors
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Color')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.ColorListType;
Option[EXG2ANTTLib_TLB.exColorListShowName] := OleVariant(True);
ClearItems();
AddItem(255,'Red Color',Null);
AddItem(16711680,'Blue Color',Null);
AddItem(65280,'Green Color',Null);
end;
Items.AddItem(OleVariant(255));
end
|
|
447
|
How do I add a color list editor with my own or custom colors
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Color')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.ColorListType;
ClearItems();
AddItem(255,'Red Color',Null);
AddItem(16711680,'Blue Color',Null);
AddItem(65280,'Green Color',Null);
end;
Items.AddItem(OleVariant(255));
end
|
|
446
|
How can I show the color's name in a color list editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Color')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.ColorListType;
Option[EXG2ANTTLib_TLB.exColorListShowName] := OleVariant(True);
end;
Items.AddItem(OleVariant(255));
end
|
|
445
|
How do I add a color list editor
with G2antt1 do
begin
(IUnknown(Columns.Add('Color')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.ColorListType;
Items.AddItem(OleVariant(255));
end
|
|
444
|
How can I access my own custom or ActiveX editor
with G2antt1 do
begin
DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
DefaultItemHeight := 128;
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.UserEditorType;
UserEditor('MSCAL.Calendar','');
with (IUnknown(UserEditorObject) as MSACAL_TLB.Calendar) do
begin
BackColor := $ffffff;
GridCellEffect := 0;
ShowTitle := False;
ShowDateSelectors := False;
end;
end;
with Items do
begin
AddItem('MSCal.Calendar');
AddItem('MSCal.Calendar');
end;
end
|
|
443
|
How can I add my own custom or ActiveX editor
with G2antt1 do
begin
DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
DefaultItemHeight := 128;
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.UserEditorType;
UserEditor('MSCAL.Calendar','');
end;
with Items do
begin
AddItem('MSCal.Calendar');
AddItem('MSCal.Calendar');
end;
end
|
|
442
|
How can I add a hyperlink editor
with G2antt1 do
begin
(IUnknown(Columns.Add('Shell.Execute')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.LinkEditType;
Items.AddItem('http://www.exontrol.com');
Items.AddItem('c:\');
end
|
|
441
|
How can I add a drop down editor, that allows only predefined values, but still being able to edit and select
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.PickEditType;
AddItem(1,'The first item',OleVariant(1));
AddItem(2,'The second item',OleVariant(3));
AddItem(3,'The third item',OleVariant(2));
end;
with Items do
begin
AddItem('The first item');
AddItem('The third item');
end;
end
|
|
440
|
How can I show or hide the rectangle arround progress bar editor
with G2antt1 do
begin
SelForeColor := RGB(0,0,0);
SelBackColor := RGB(128,255,255);
var_Editor := (IUnknown(Columns.Add('Progress')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.ProgressBarType;
Option[EXG2ANTTLib_TLB.exProgressBarMarkTicker] := OleVariant(False);
end;
Items.AddItem(OleVariant(33));
end
|
|
439
|
How can I hide the caption / percent in the progress bar editor
with G2antt1 do
begin
SelForeColor := RGB(0,0,0);
SelBackColor := RGB(128,255,255);
var_Editor := (IUnknown(Columns.Add('Progress')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.ProgressBarType;
Option[EXG2ANTTLib_TLB.exProgressBarAlignment] := OleVariant(-1);
end;
Items.AddItem(OleVariant(33));
end
|
|
438
|
How can I align the caption in the center of the progress bar editor
with G2antt1 do
begin
SelForeColor := RGB(0,0,0);
SelBackColor := RGB(128,255,255);
var_Editor := (IUnknown(Columns.Add('Progress')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.ProgressBarType;
Option[EXG2ANTTLib_TLB.exProgressBarAlignment] := OleVariant(1);
end;
Items.AddItem(OleVariant(33));
end
|
|
437
|
How can I align the caption to the right in the progress bar editor
with G2antt1 do
begin
SelForeColor := RGB(0,0,0);
SelBackColor := RGB(128,255,255);
var_Editor := (IUnknown(Columns.Add('Progress')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.ProgressBarType;
Option[EXG2ANTTLib_TLB.exProgressBarAlignment] := OleVariant(2);
end;
Items.AddItem(OleVariant(33));
end
|
|
436
|
How can I change the background color for a progress bar editor
with G2antt1 do
begin
SelForeColor := RGB(0,0,0);
SelBackColor := RGB(128,255,255);
var_Editor := (IUnknown(Columns.Add('Progress')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.ProgressBarType;
Option[EXG2ANTTLib_TLB.exProgressBarBackColor] := OleVariant(255);
end;
Items.AddItem(OleVariant(33));
end
|
|
435
|
How can I add a progress bar editor
with G2antt1 do
begin
SelForeColor := RGB(0,0,0);
SelBackColor := RGB(128,255,255);
(IUnknown(Columns.Add('Progress')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.ProgressBarType;
Items.AddItem(OleVariant(33));
end
|
|
434
|
How can I add a button editor
with G2antt1 do
begin
(IUnknown(Columns.Add('Button')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.ButtonType;
Items.AddItem('Just a text');
end
|
|
433
|
How can I show or hide the type of the OLE Object for Photo or a Picture editor
with G2antt1 do
begin
ColumnAutoResize := False;
with (IUnknown(Columns.Add('Photo')) as EXG2ANTTLib_TLB.Column) do
begin
Width := 74;
with Editor do
begin
EditType := EXG2ANTTLib_TLB.PictureType;
Option[EXG2ANTTLib_TLB.exShowPictureType] := OleVariant(False);
end;
end;
with Items do
begin
h := AddItem(Null);
CellValue[OleVariant(h),OleVariant(0)] := G2antt1.ExecuteTemplate('loadpicture(`c:\exontrol\images\sample.bmp`)');
ItemHeight[h] := 64;
end;
end
|
|
432
|
How can I add a Photo or a Picture editor
with G2antt1 do
begin
(IUnknown(Columns.Add('Photo')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.PictureType;
with Items do
begin
h := AddItem(Null);
CellValue[OleVariant(h),OleVariant(0)] := G2antt1.ExecuteTemplate('loadpicture(`c:\exontrol\images\sample.bmp`)');
ItemHeight[h] := 64;
end;
end
|
|
431
|
How can I hide or show the "System" page in the color editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Color')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.ColorType;
Option[EXG2ANTTLib_TLB.exColorShowSystem] := OleVariant(False);
end;
Items.AddItem(OleVariant(255));
end
|
|
430
|
How can I hide or show the "Palette" page in the color editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Color')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.ColorType;
Option[EXG2ANTTLib_TLB.exColorShowPalette] := OleVariant(False);
end;
Items.AddItem(OleVariant(255));
end
|
|
429
|
How do I add a color editor
with G2antt1 do
begin
(IUnknown(Columns.Add('Color')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.ColorType;
Items.AddItem(OleVariant(255));
end
|
|
428
|
How do I change the masking character
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Mask')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.MaskType;
Mask := '###';
MaskChar := 48;
end;
Items.AddItem('');
end
|
|
427
|
How do I mask an IP
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('IP')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.MaskType;
Mask := '{0,255}\.{0,255}\.{0,255}\.{0,255}';
end;
Items.AddItem('1.2.3.4');
end
|
|
426
|
How do I add a mask editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Mask')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.MaskType;
Mask := '{0,255}\.{0,255}\.{0,255}\.{0,255}';
end;
Items.AddItem('1.2.3.4');
end
|
|
425
|
How to show or hide the week numbers header in a drop down date picker calendar editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.DateType;
Option[EXG2ANTTLib_TLB.exDateWeeksHeader] := OleVariant(True);
end;
Items.AddItem('Today');
end
|
|
424
|
How do I show or hide the bottom scroll bar in the drop down date picker calendar editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.DateType;
Option[EXG2ANTTLib_TLB.exDateShowScroll] := OleVariant(False);
end;
Items.AddItem('Today');
end
|
|
423
|
How do highlight the "Today" date is the drop down date picker calendar editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.DateType;
Option[EXG2ANTTLib_TLB.exDateMarkToday] := OleVariant(True);
end;
Items.AddItem('Today');
end
|
|
422
|
How do I show or hide the "Today" button is the drop down date picker calendar editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.DateType;
Option[EXG2ANTTLib_TLB.exDateShowTodayButton] := OleVariant(False);
end;
Items.AddItem('Today');
end
|
|
421
|
How to specify the first day of the week in the drop down date picker calendar editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.DateType;
Option[EXG2ANTTLib_TLB.exDateFirstWeekDay] := OleVariant(1);
end;
Items.AddItem('Today');
end
|
|
420
|
How to specifies the shortcut for the weekdays to be displayed in the drop down date picker calendar editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.DateType;
Option[EXG2ANTTLib_TLB.exDateWeekDays] := 'Du Lu Ma Mi Jo Vi Si';
end;
Items.AddItem('Today');
end
|
|
419
|
How can I change the name of the months in the drop down date picker calendar editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.DateType;
Option[EXG2ANTTLib_TLB.exDateMonths] := 'Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre';
end;
Items.AddItem('Today');
end
|
|
418
|
Can I change the "Today" caption being displayed in the drop down date picker calendar editor
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.DateType;
Option[EXG2ANTTLib_TLB.exDateTodayCaption] := 'Azi';
end;
Items.AddItem('Today');
end
|
|
417
|
How can allow empty date to drop down date picker control or a calendar control
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.DateType;
Option[EXG2ANTTLib_TLB.exDateAllowNullDate] := OleVariant(True);
end;
with Items do
begin
AddItem('5/12/2012');
AddItem('');
AddItem('5/14/2012');
end;
end
|
|
416
|
How can I a drop down date picker control or a calendar control
with G2antt1 do
begin
(IUnknown(Columns.Add('Date')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.DateType;
with Items do
begin
AddItem('Today');
end;
end
|
|
415
|
How can I have an OR combination of my bit values, something like a check-box list editor
with G2antt1 do
begin
with (IUnknown(Columns.Add('CkeckList')) as EXG2ANTTLib_TLB.Column) do
begin
Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
with Editor do
begin
EditType := EXG2ANTTLib_TLB.CheckListType;
AddItem(1,'Bit <b>1</b>',Null);
AddItem(2,'Bit <b>2</b>',Null);
AddItem(4,'Bit <b>3</b>',Null);
AddItem(8,'Bit <b>4</b>',Null);
AddItem(16,'Bit <b>5</b>',Null);
AddItem(32,'Bit <b>6</b>',Null);
AddItem(64,'Bit <b>7</b>',Null);
AddItem(128,'Bit <b>8</b>',Null);
end;
end;
with Items do
begin
AddItem(OleVariant(112));
AddItem(OleVariant(2));
end;
end
|
|
414
|
How do I stop resizing the memo or a multiple lines edit control, while the user types
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.MemoType;
Option[EXG2ANTTLib_TLB.exMemoAutoSize] := OleVariant(False);
Option[EXG2ANTTLib_TLB.exMemoHScrollBar] := OleVariant(True);
Option[EXG2ANTTLib_TLB.exMemoVScrollBar] := OleVariant(True);
end;
with Items do
begin
CellSingleLine[OleVariant(AddItem('This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the' +
' line, and get it displayed on multiple lines.')),OleVariant(0)] := EXG2ANTTLib_TLB.exCaptionWordWrap;
end;
end
|
|
413
|
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.MemoType;
Option[EXG2ANTTLib_TLB.exMemoHScrollBar] := OleVariant(True);
end;
with Items do
begin
CellSingleLine[OleVariant(AddItem('This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the' +
' line, and get it displayed on multiple lines.')),OleVariant(0)] := EXG2ANTTLib_TLB.exCaptionWordWrap;
end;
end
|
|
412
|
How do I add a vertical scroll bar for a memo or a multiple lines edit control
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.MemoType;
Option[EXG2ANTTLib_TLB.exMemoVScrollBar] := OleVariant(True);
end;
with Items do
begin
CellSingleLine[OleVariant(AddItem('This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break the' +
' line, and get it displayed on multiple lines.')),OleVariant(0)] := EXG2ANTTLib_TLB.exCaptionWordWrap;
end;
end
|
|
411
|
How do I add a memo or a multiple lines edit control
with G2antt1 do
begin
(IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.MemoType;
with Items do
begin
CellSingleLine[OleVariant(AddItem('This is a long text that should break the line, and get it displayed on multiple lines.')),OleVariant(0)] := EXG2ANTTLib_TLB.exCaptionWordWrap;
end;
end
|
|
410
|
How to specify the proposed change when the user clicks a spin control.
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.SpinType;
Numeric := EXG2ANTTLib_TLB.exInteger;
Option[EXG2ANTTLib_TLB.exSpinStep] := OleVariant(10);
end;
with Items do
begin
AddItem(OleVariant(0));
AddItem(OleVariant(10));
AddItem(OleVariant(20));
end;
end
|
|
409
|
How do I add a spin editor that allows only integer values
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.SpinType;
Numeric := EXG2ANTTLib_TLB.exInteger;
end;
with Items do
begin
AddItem(OleVariant(0));
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
408
|
How do I add a spin editor
with G2antt1 do
begin
(IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor.EditType := EXG2ANTTLib_TLB.SpinType;
with Items do
begin
AddItem(OleVariant(0));
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
407
|
How do I specify in a drop down list editor, that I do not want to have predefined icon
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.DropDownListType;
AddItem(1,'The first item',OleVariant(1));
AddItem(2,'The second item',OleVariant(3));
AddItem(3,'The third item',OleVariant(2));
Option[EXG2ANTTLib_TLB.exDropDownImage] := OleVariant(False);
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
406
|
How do I add a drop down editor, that allows only predefined values
with G2antt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
begin
EditType := EXG2ANTTLib_TLB.DropDownListType;
AddItem(1,'The first item',OleVariant(1));
AddItem(2,'The second item',OleVariant(3));
AddItem(3,'The third item',OleVariant(2));
end;
with Items do
begin
AddItem(OleVariant(1));
AddItem(OleVariant(2));
end;
end
|
|
405
|
How to allow the editor to work on insert or overtype mode
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.EditType;
Option[EXG2ANTTLib_TLB.exEditAllowOverType] := OleVariant(True);
Option[EXG2ANTTLib_TLB.exEditOverType] := OleVariant(True);
end;
with Items do
begin
AddItem('000');
AddItem('111');
AddItem('222');
end;
end
|
|
404
|
How to set foreground color for a locked, or read only edit control
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.EditType;
Locked := True;
Option[EXG2ANTTLib_TLB.exEditLockedForeColor] := OleVariant(8421504);
end;
with Items do
begin
AddItem('000');
AddItem('111');
AddItem('222');
end;
end
|
|
403
|
How to set background color for a locked, or read only edit control
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.EditType;
Locked := True;
Option[EXG2ANTTLib_TLB.exEditLockedBackColor] := OleVariant(8421504);
end;
with Items do
begin
AddItem('000');
AddItem('111');
AddItem('222');
end;
end
|
|
402
|
How to set the number of characters selected, when an EditType editor is opened
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.EditType;
Option[EXG2ANTTLib_TLB.exEditSelLength] := OleVariant(1);
end;
with Items do
begin
AddItem('000');
AddItem('111');
AddItem('222');
end;
end
|
|
401
|
How to set the starting point of text selected, when an EditType editor is opened
with G2antt1 do
begin
var_Editor := (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor;
with var_Editor do
begin
EditType := EXG2ANTTLib_TLB.EditType;
Option[EXG2ANTTLib_TLB.exEditSelStart] := OleVariant(1);
Option[EXG2ANTTLib_TLB.exEditSelLength] := OleVariant(1);
end;
with Items do
begin
AddItem('000');
AddItem('111');
AddItem('222');
end;
end
|